home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 008a / fglqbx10.zip / 09-17.BAS < prev    next >
BASIC Source File  |  1991-06-07  |  436b  |  29 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4. DIM Bitmap AS STRING*32
  5.  
  6. NewMode = FGbestmode(320,200,1)
  7. IF NewMode < 0 OR NewMode = 12 THEN
  8.    PRINT "This program requires a 320 x 200 color graphics mode."
  9.    STOP
  10. END IF
  11.  
  12. OldMode = FGgetmode
  13. FGsetmode NewMode
  14.  
  15. FGsetcolor 9
  16. FGtext "Text", 4
  17. FGwaitkey
  18.  
  19. FGmove 0, 7
  20. FGgetmap Bitmap, 4, 8
  21. FGmove 4, 15
  22. FGdrawmap Bitmap, 4, 8
  23. FGwaitkey
  24.  
  25. FGsetmode OldMode
  26. FGreset
  27.  
  28. END
  29.